object OrderForm: TOrderForm Left = -1 Top = 1 ActiveControl = NameEd BorderStyle = bsDialog Caption = 'Order Form' ClientHeight = 414 ClientWidth = 580 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnCreate = FormCreate TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 401 Height = 369 Shape = bsFrame IsControl = True end object Label1: TLabel Left = 16 Top = 13 Width = 385 Height = 41 Caption = 'Please, take your time and fill in as much information as possib' + 'le so that we can serve you better. If you need more information' + ' click on Help button.' WordWrap = True end object Bevel3: TBevel Left = 416 Top = 13 Width = 161 Height = 364 Shape = bsFrame end object Label16: TLabel Left = 416 Top = 0 Width = 101 Height = 13 Caption = 'Price Calculation:' end object Label17: TLabel Left = 424 Top = 201 Width = 34 Height = 13 Caption = 'Price:' end object Label18: TLabel Left = 424 Top = 301 Width = 34 Height = 13 Caption = 'Total:' end object Label19: TLabel Left = 536 Top = 201 Width = 18 Height = 13 Caption = 'US' end object Label20: TLabel Left = 536 Top = 301 Width = 23 Height = 13 Caption = 'Cdn' end object Label22: TLabel Left = 424 Top = 156 Width = 101 Height = 13 Caption = 'Number Of Users:' end object Label21: TLabel Left = 424 Top = 223 Width = 119 Height = 13 Caption = 'Shipping && Handling:' end object Label23: TLabel Left = 536 Top = 241 Width = 18 Height = 13 Caption = 'US' end object Bevel4: TBevel Left = 417 Top = 324 Width = 159 Height = 9 Shape = bsTopLine Visible = False end object Label24: TLabel Left = 424 Top = 275 Width = 34 Height = 13 Caption = 'Total:' end object Label25: TLabel Left = 536 Top = 275 Width = 18 Height = 13 Caption = 'US' end object Bevel5: TBevel Left = 417 Top = 263 Width = 159 Height = 9 Shape = bsTopLine end object Label26: TLabel Left = 424 Top = 355 Width = 34 Height = 13 Caption = 'Total:' Visible = False end object Label27: TLabel Left = 536 Top = 355 Width = 23 Height = 13 Caption = 'Cdn' Visible = False end object OKBtn: TBitBtn Left = 500 Top = 384 Width = 77 Height = 27 Hint = 'Close Order Form' Caption = '&Close' TabOrder = 14 Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 420 Top = 384 Width = 77 Height = 27 Hint = 'Display Help Window' TabOrder = 13 Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object BitBtn1: TBitBtn Left = 259 Top = 384 Width = 77 Height = 27 Hint = 'Print This Order Form On Default Windows Printer' Caption = '&Print' TabOrder = 11 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object Panel1: TPanel Left = 16 Top = 56 Width = 385 Height = 313 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label2: TLabel Left = 8 Top = 10 Width = 57 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Name:' end object Label3: TLabel Left = 4 Top = 33 Width = 61 Height = 13 Alignment = taRightJustify Caption = 'Address 1:' end object Label8: TLabel Left = 3 Top = 118 Width = 77 Height = 13 Caption = 'Telephone #:' end object Label9: TLabel Left = 107 Top = 118 Width = 89 Height = 13 Caption = 'E-Mail Address:' end object Label10: TLabel Left = 235 Top = 118 Width = 112 Height = 13 Caption = 'Source Of Program:' end object Label11: TLabel Left = 8 Top = 154 Width = 160 Height = 13 Caption = 'Comments and Suggestions:' end object Bevel2: TBevel Left = 1 Top = 227 Width = 382 Height = 2 Shape = bsBottomLine end object Label12: TLabel Left = 8 Top = 257 Width = 152 Height = 13 Caption = 'If Payment by VISA CARD:' end object Label13: TLabel Left = 16 Top = 271 Width = 78 Height = 13 Caption = 'Card Number:' end object Label14: TLabel Left = 208 Top = 271 Width = 92 Height = 13 Caption = 'Expiration Date:' end object Label15: TLabel Left = 8 Top = 235 Width = 84 Height = 13 Caption = 'Payment Form:' end object Label4: TLabel Left = 4 Top = 47 Width = 61 Height = 13 Alignment = taRightJustify Caption = 'Address 2:' end object Label5: TLabel Left = 4 Top = 60 Width = 61 Height = 13 Alignment = taRightJustify Caption = 'Address 3:' end object Label6: TLabel Left = 4 Top = 73 Width = 61 Height = 13 Alignment = taRightJustify Caption = 'Address 4:' end object Label7: TLabel Left = 4 Top = 86 Width = 61 Height = 13 Alignment = taRightJustify Caption = 'Address 5:' end object NameEd: TEdit Left = 72 Top = 6 Width = 305 Height = 20 Hint = 'Enter Company or User Name' AutoSize = False TabOrder = 0 end object PhoneEd: TEdit Left = 5 Top = 132 Width = 97 Height = 20 Hint = 'Enter The Contact Phone Number' TabOrder = 2 end object EMailEd: TEdit Left = 107 Top = 132 Width = 121 Height = 20 Hint = 'Enter The Contact E-Mail Address (if any)' TabOrder = 3 end object SourceEd: TComboBox Left = 233 Top = 132 Width = 145 Height = 21 Hint = 'Select The Program Source From The List' DropDownCount = 14 ItemHeight = 13 Items.Strings = ( 'America Online' 'BBS' 'CD-ROM' 'Compuserve' 'Computer Magazine' 'Delphi' 'Friend' 'Genie' 'Internet' 'Microsoft Network (MSN)' 'Prodigy' 'Software Distributor' 'Other') TabOrder = 4 end object CommentsEd: TMemo Left = 8 Top = 168 Width = 369 Height = 57 Hint = 'Enter Your Comments Or Suggestions (if any)' TabOrder = 5 end object VisaNoEd: TEdit Left = 16 Top = 286 Width = 177 Height = 20 Hint = 'Enter VISA Card Number (if Payment Form is VISA)' TabOrder = 7 end object ExpiryEd: TEdit Left = 208 Top = 286 Width = 121 Height = 20 Hint = 'Enter VISA Card Expiration Date (if Payment Form is VISA)' TabOrder = 8 end object PaymentEd: TComboBox Left = 96 Top = 233 Width = 281 Height = 21 Hint = 'Select Payment Form From The List' ItemHeight = 13 Items.Strings = ( 'VISA' 'Money Order (from US or Canadian bank)' 'International Postal Money Order' 'Check (drawn on US or Canadian bank)' 'Cash') TabOrder = 6 OnChange = PaymentEdChange end object AddressEd: TMemo Left = 72 Top = 32 Width = 305 Height = 83 Hint = 'Enter The Address Where The Software Should Be Sent' ScrollBars = ssHorizontal TabOrder = 1 end end object VersionRG: TRadioGroup Left = 424 Top = 37 Width = 145 Height = 57 Hint = '16-bit: Windows 3.1 and 95; 32-bit: Windows 95 and NT' Caption = 'Program Version:' Items.Strings = ( '16-bit Version' '32-bit Version' 'Both Versions') TabOrder = 2 OnClick = VersionRGClick end object LicenseRG: TRadioGroup Left = 424 Top = 97 Width = 145 Height = 57 Caption = 'License Type:' Items.Strings = ( 'Single-User' 'Multi-User' 'Unlimited') TabOrder = 3 OnClick = LicenseRGClick end object UsersNoEd: TFilterEdit Left = 424 Top = 171 Width = 105 Height = 22 AutoSize = False MaxLength = 3 TabOrder = 4 OnChange = UsersNoEdChange Alignment = taRightJustify ValidChars = '[0..9]' end object Total1Ed: TMemo Left = 460 Top = 198 Width = 68 Height = 22 Alignment = taRightJustify Color = clSilver Lines.Strings = ( '') ReadOnly = True TabOrder = 5 WordWrap = False end object SHEd: TMemo Left = 460 Top = 238 Width = 68 Height = 22 Alignment = taRightJustify Color = clSilver Lines.Strings = ( '') ReadOnly = True TabOrder = 6 WordWrap = False end object Total3Ed: TMemo Left = 460 Top = 296 Width = 68 Height = 22 Hint = 'Total Registration Fee in Canadian dollars' Alignment = taRightJustify Color = clSilver Lines.Strings = ( '') ReadOnly = True TabOrder = 8 WordWrap = False end object Total2Ed: TMemo Left = 460 Top = 271 Width = 68 Height = 22 Hint = 'Total Registration Fee in US Dollars' Alignment = taRightJustify Color = clSilver Lines.Strings = ( '') ReadOnly = True TabOrder = 7 WordWrap = False end object BitBtn2: TBitBtn Left = 340 Top = 384 Width = 77 Height = 27 Hint = 'Save or Save Encrypted To A File' Caption = '&Save' TabOrder = 12 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CheckBox1: TCheckBox Left = 424 Top = 329 Width = 145 Height = 17 Hint = '7% - Goods & Services Tax' Caption = 'GST - Canadians Only' TabOrder = 9 Visible = False OnClick = CheckBox1Click end object Total4Ed: TMemo Left = 460 Top = 350 Width = 68 Height = 22 Hint = 'Total Registration Fee in Canadian Dollars With The GST' Alignment = taRightJustify Color = clSilver Lines.Strings = ( '') ReadOnly = True TabOrder = 10 Visible = False WordWrap = False end object CheckBox2: TCheckBox Left = 424 Top = 18 Width = 145 Height = 17 Hint = 'Upgrade from Older Version' Caption = 'Upgrade' TabOrder = 1 OnClick = CheckBox1Click end end